// System Unit
// Coverage Support

(*************)
(* Interface *)
(*************)
{$IFDEF Include_Modules_Header}

 // These are internal use structures referenced by compiler helper functions for QA coverage support.
 Type
  TCVModInfo = Packed Record
   ModName: PANSIChar;
   LibName: PANSIChar;
   UserData: Pointer;
  END;
  PCVModInfo = ^TCVModInfo;

 Procedure _CVR_PROBE(mi: PCVModInfo; probeNum: Cardinal); CDecl;
 Function _CVR_STMTPROBE(mi: PCVModInfo; probeNum: Cardinal; TrueFalse: Cardinal): Boolean; CDecl;

{$ENDIF Include_Modules_Header}
(******************)
(* Implementation *)
(******************)
{$IFDEF Include_Modules_Implement}

 Const
  _Coverage_ = 'Coverage.dll';

 Procedure _CVR_PROBE; External _Coverage_ name '__CVR_PROBE';
 Function _CVR_STMTPROBE; External _Coverage_ name '__CVR_STMTPROBE';

{$ENDIF Include_Modules_Implement}
(******************)
(* Initialization *)
(******************)
{$IFDEF Include_Modules_Initialize}
{$ENDIF Include_Modules_Initialize}
(****************)
(* Finalization *)
(****************)
{$IFDEF Include_Modules_Finalize}
{$ENDIF Include_Modules_Finalize}
